bcdanOCATOR.mESA 24-0CT-77 21:15:31 Page 1 



-- BcdAllocator.Mesa Edited by Sandman on August 23, 1977 10:36 PM 

DIRECTORY 

InlineDefs: FROM "in! inedefs" , 
SystemDefs: FROM "systemdefs" , 
BcdTableDefs: FROM "bcdtabledefs" ; 

DEFINITIONS FROM BcdTableDefs; 

BcdAHocator: PROGRAM 
IMPORTS SystemDefs 
EXPORTS BcdTableDefs 
SHARES BcdTableDefs = 
BEGIN 

tbase: ARRAY TableSelector OF TableBase; 
limit: ARRAY TableSelector OF [0, . TableLimit]; 
top, oldTop: ARRAY TableSelector OF CARDINAL; 

tableOpen: BOOLEAN ^ FALSE; 
tableOrigin: CARDINAL; 
tableLimit: [0 . .TableLimit] ; 

TableOverflow: PUBLIC SIGNAL RETURNS [origin, limit: CARDINAL] = CODE; 
TableFailure: PUBLIC ERROR [TableSelector] = CODE; 
StackAllocateError: PUBLIC SIGNAL [TableSelector] = CODE; 

-- stack allocation from subzones 

Allocate: PUBLIC PROCEDURE [table: TableSelector. size: CARDINAL] RETURNS [Tablelndex] = 
BEGIN 

index: CARDINAL = top[table]; 
newtop: CARDINAL = index + size; 
IF newtop <= limit[table] 
THEN top[table] ♦• newtop 
ELSE 

IF newtop < TableLimit 
THEN 

BEGIN top[table] *■ newtop; Repack[] 
END 
ELSE ERROR Tabl eFai 1 ure[ table] ; 
RETURN [LOOPHOLE[index, Tablelndex]] 
END; 

ResetTable: PUBLIC PROCEDURE [table: TableSelector] = 
BEGIN 

top[table] ^ oldTop[table] «- 0; 
RETURN 
END; 

TableBounds: PUBLIC PROCEDURE [table: TableSelector] RETURNS [base: TableBase, size: CARDINAL] 
BEGIN 

RETURN [tbase[table], top[table]] 
END; 

Repack: PROCEDURE = 

BEGIN -- Garwick's Repacking algorithm (Knuth. Vol. 1, p. 245) 

i: CARDINAL; 

j, k, m: [FIRST[TableSelector]. .LAST[TableSelector]-fl]; 

nTables: CARDINAL = ( LAST[Tabl eSeleclor]-FIRST[TableSel ec tor]+l ) ; 

sum, inc. delta, remainder: INTEGER; 

d: ARRAY TableSelector OF INTEGER; 

newBase: ARRAY TableSelector OF TableBase; 

sb. db: POINTER; 

newOrigin, newLimit: CARDINAL; 

sum ^ tableLimit; inc ♦- 0; 

FOR j IN TableSelector 

DO 

sum ^ sum - top[j] ; 

inc ^ inc + (d[j] - IF top[ j ]>o 1 dTop[ j ] THEN top[ j ]-ol dTop[ j ] ELSE 0); 

FNDl OOP; 
UNTIL sum >= MIN[ tablet, im i t/20 . lOOB] 

DO 

[or ig in : newOr ig in , 1 im i t : newL im i t] *- SIGNAL TableOverflow; 
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FOR j IN TableSelector 
DO 

tbase[j] ^ tbase[j] + (newOrigin-tableOrigin) ; 
ENDLOOP: 
sum *- sum + (newLimit-tableLimit) ; 
tableOrigin *■ newOrigin; tableLimit ♦• newLimit; 
ENDLOOP: 
delta ♦• sum/(10*nTab1es) ; 
remainder ♦- sum - deHa*nTables: 

newBase[FIRST[TableSelector]] ♦- tbase[FIRST[Tab1eSe1ector]] ; 
FOR j IN (FIRST[Tab1eSe1ector] .. LAST[Tab1eSelector]] 
DO 

newBase[j] ♦- newBase[j-l] + top[j-l] + delta + 
In! ineDef s .LongDiv[ 
num: Inl ineDef s .LongMuU[d[j-l], remainder], 
den: inc] ; 
ENDLOOP; 
j ^ FIRSTiTableSelector]+l; 
UNTIL j > LAST[Tab1eSelector] 
DO 

SELECT newBase[j] FROM 
< tbase[j] => 
BEGIN 
In1ineDers.C0PY[ 

from: L00PH0LE[tbase[j]] . 
to: L00PH0LE[newBase[j]]. 
nwords: MIN[top[j], 1imit[j]]]; 
tbase[j] ♦- newBase[j]; 

3 ^ J+lJ 
END; 
> tbase[j] => 
BEGIN k <r j + 1; 

UNTIL k > LAST[TableSe1ector] OR newBase[k3 <= tbase[k] 
DO 

k ^ k+1; 
ENDLOOP: 
FOR m DFCREASING IN [j . . k) 
00 

sb ♦- L0OPHOLE[tbase[m]]; db ^ L00PH0LE[newBase[m]] ; 
FOR i DECREASING IN [0 .. MIN[top[m], limit[m]]) 
DO 

(db + i)i^ 4- (sb + i)t; 
ENDLOOP; 
tbase[m] ♦- newBase[m]; 
ENDLOOP; 
j - k; 
END; 
ENDCASE => j ♦• j + 1; 
ENDLOOP: 
oldTop ♦• top; 
sum <- tableLimit; 

FOR j IN [FIRST[TableSelector] .. LAST[TableSelector]) 
DO 

limit[j] ♦• MIN[LOOPHOLE[tbase[j+l]-tbase[j], CARDINAL], TableLimit]; 
sum ♦• sum - 1 imi t[ j] ; 
ENDLOOP; 
1 imi t[LAST[TableSelector]] <- sum; 
UpdateBases[]; RETURN 
END; 



-- linked list allocation (first subzone) 

Chunk: TYPE = MACHINE DEPENDENT RECORD [ 
free. Fil1l: BOOLEAN, 
size: [0 . . Tabl eLimi t ) , 
f ill2: [0. .3], 
fl ink: CIndex. 
rill3: [0. .3], 
bL i nk : CIndex] ; 



CIndex: TYPE = POTNTFR [0 . . TableL im i t ) TO Chunk; 
NullChunklndex: CIndex = I AST[CIndex] ; 
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chunkRover: CIndex; 

GetChunk: PUBLIC PROCEDURE [size: CARDINAL] RETURNS [Tablelndex] » 
BEGIN 

cb: TableBase = tbase[chunktype] ; 
p, q, next: CIndex; 
nodeSize: CARDINAL; 
n: INTEGER; 

size ♦- MAX[size, SIZE[Chunk]] ; 
BEGIN 

IF (p 4- ChunkRover) = NullChunklndex THEN GO TO notFound; 
-- search for a chunk to allocate 
DO 

nodeSize *• (cb+p).size; 

WHILE (next*-p+nodeSize) ^ LOOPHOLE[top[chunktype] . CIndex] AND (cb+next) . f ree 
DO 

(cb + (cb+next).bLink).fLink ♦- (cb+next) . fLink; 
(cb + (cb + next) . f Link) .bLink ♦• (cb+next) . bLink ; 
(cb+p).size *- nodeSize ♦- nodeSize + (cb+next) .size; 
chunkRover ♦■ p; -- in case next = chunkRover 
ENDLOOP; 
SELECT n ♦- nodeSize-size FROM 
= «> 
BEGIN 
IF (cb+p). fLink = p 

THEN chunkRover ^ NullChunklndex 
ELSE 
BEGIN 

chunkRover ♦- (cb + (cb+p) .bLink) . fLink ^ (cb+p) .fLink; 
(cb + (cb+p) .fLink). bLink ♦- (cb+p) .bLink; 
END; 
q ♦- p: GO TO found; 
END; 
>= SIZE[Chunk] => 
BEGIN 

(cb+p). size ♦- n; chunkRover *• p; 
q ♦- p + n : GO TO found; 
END; 
ENDCASE; 
IF (p ^ (cb+p) .fLink) = chunkRover THEN GO TO notFound; 
ENDLOOP; 
EXITS 

found => NULL; 

notFound => q ♦• Al locate[chunktype . size]; 
END; 
(tbase[chunktype]+q).free ♦• FALSE; RETURN [q] 
END; 

FreeChunk: PUBLIC PROCEDURE [i: Tablelndex, size: CARDINAL] = 
BEGIN 

cb : TableBase = tbase[chunktype] ; 
p: CIndex = LOOPHOLE[i]; 
(cb+p). size ^ MAX[size. SIZE[Chunk]] ; 
IF ChunkRover = NullChunklndex 

THEN ChunkRover ♦- (cb+p). fLink ♦- (cb+p). bLink *- p 
ELSE 

BEGIN 

(cb+p). fLink ♦- (cb + chunkRover) . fLink; 

(cb + (cb+p) . fLink) .bLink ♦■ p; 

(cb+p). bLink *- chunkRover; 

(cb + chunkRover ). fLink ♦- p; 

END; 
(cb+p). free ♦- TRUE; RETURN 
END; 

-- communication 

Not ifyNode: TYPE = RECORD [ 
notifier: Tab 1 eNo t i f ier , 
link: POINTER TO NotifyNode]; 

notifyList: POINTER TO NotifyNode; 

AddNotify: PUBLIC PROCEDURE [proc: Tabl eNo t i f ier] = 
BEGIN 
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p: POINTER TO NotifyNode = SystemDef s . AnocateHeapNode[SIZE[NotifyNode]] ; 

pt 4- [notif ier:proc, 1 inkinotifyList] ; 

notifyList ♦- p; 

proc[DESCRIPTOR[tbase]]: RETURN 

END; 

DropNotify: PUBLIC PROCEDURE [proc: TableNotif ier] = 
BEGIN 

p. q: POINTER TO NotifyNode; 
IF notifyList = NIL THEN RETURN; 
p 4- notifyList; 
IF p.notifier = proc 

THEN notifyList <- p. link 
ELSE 
BEGIN 
DO 

q ♦• p; p ♦• p. 1 ink; 
IF p == NIL THEN RETURN; 
IF p.notifier ^ proc THEN EXIT 
ENDLOOP; 
q. 1 ink ♦• p . 1 ink; 
END; 
SystemDefs.FreeHeapNode[p]; RETURN 
END; 

UpdateBases: PROCEDURE » 
BEGIN 

p: POINTER TO NotifyNode; 
FOR p ♦- notifyList. p. link UNTIL p = NIL 

00 

p.notif ier[DESCRIPTOR[tbase]]; 

ENDLOOP; 
RETURN 
END; 

-- initialization, expansion and termination 

InitializeTable: PUBLIC PROCEDURE [origin, size: CARDINAL] = 
BEGIN 

d: CARDINAL; 
i: TableSelector; 
IF tableOpen THEN EraseTable[]; 
tableOrigin ♦- origin; tableLimit <- size; 

d 4- tableLimit/(LAST[TableSelector]-FIRST[TableSelector] + l); 
FOR i IN TableSelector 

DO 

tbaso[i] ♦• origin; origin ♦■ origin + d; 

limit[i] ♦• d; top[i] ♦■ oldTop[i] ♦- 0; 

ENDLOOP; 
chunkRover ♦- Nul IChunklndex; 
notifyList ^ NIL; 
tableOpen *- TRUE; RETURN 
END; 

EraseTable: PUBLIC PROCEDURE = 
BEGIN 

p. q: POINTER TO NotifyNode; 
FOR p ♦- notifyList, q UNTIL p = NIL 

DO 

q ♦- p. link; SystemDef s . FreeHeapNode[p] ; 

CNDLOOP; 
tableOpen ^ FALSE; 
RETURN 
END; 

END ... 



